chrb

' Output file header Int_temp2 = (text_len-1) \ 4 * (text_len-1)/4-(text_len-1) \ 4 * 4) * Response. BinaryWrite ChrB (h42) ChrB (h4d) Response.BinaryWrite ChrB ((INT_TEMP2 + 206)/256-(INT_TEMP2 + 206) \ 256) * 256) ChrB ((int_temp2 + 206) \ 256) ' special bit Response.BinaryWrite

) = "00000000000000111000000011000000011000000011111000001100110000110011000011001100001100110000011110000000000000"Text_data (7) = "00000000000011111100000000110000000110000000011000000011000000001100000001100000000110000000011000000000000000"Text_data (8) = "00000000000001111000001100110000110011000011101100000111100000110111000011001100001100110000011110000000000000"Text_data (9) = "00000000000001111000001100110000110011000011001100001100110000011111000000011000000011000000011100000000000000"

style.After understanding the principle, we can use the program to implement it. We use the Response. BinaryWrite method to write the file header, and then use the program to write the file body.The following is a program used to generate the IP address of the browser:Response. Expires =-9999Response. AddHeader "cache-control", "no-cache"Response. ContentType = "Image/BMP"Const cCode = "0123456789." 'Data ValueDim vColor (2)VColor (0) = ChrB (0)

(9,17) = "0000011100000000"Letter (9,18) = "0001111000000000"Letter (9,19) = "0000000000000000" ' 24-bit figure' Output image file header' Response.BinaryWrite ChrB ChrB (a) ChrB (a) ChrB (M) ChrB (0) ChrB (0)

The code is as follows Copy Code Call Com_creatvalidcode ("code") Sub Com_creatvalidcode (PSN)' Disable cachingResponse.Expires =-9999Response.AddHeader "Pragma", "No-cache"Response.AddHeader "Cache-ctrol", "No-cache"' Response.ContentType = ' image/bmp 'RandomizeDim I, II, IIIConst Codds = 0 ' Odds of occurrence of miscellaneous pointsConst Camount = 36 ' text quantityConst ccode = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ"' Color data (character, background)Dim Vcolordata (1), Vco

Purpose: use ASP Program Generate an image format for the phone number on the page. CopyCode The Code is as follows: Call com_creatvalidcode (request. querystring ("tel ")) Public sub com_creatvalidcode (ptel) '---------- Disable caching Response. expires = 0 Response. addheader "Pragma", "No-Cache" Response. addheader "cache-ctrol", "No-Cache" Response. contenttype = "image/BMP" Randomize Dim I, II, III, rndcolor, strlen, SQL, RS Const codds = 5' ------------ probability of occurrence of misc

The following is a reference fragment: Call Com_creatvalidcode (Request.QueryString ("tel"))Public Sub Com_creatvalidcode (Ptel)'----------Prohibit cachingResponse.Expires = 0Response.AddHeader "Pragma", "No-cache"Response.AddHeader "Cache-ctrol", "No-cache"Response.ContentType = "Image/bmp"RandomizeDim I, II, III, RNDCOLOR,STRLEN,SQL,RSConst Codds = 5 ' Probability of the occurrence of the miscellaneous points of the------------Const str= "0123456789-"StrLen = Len (Ptel)Rndcolor =

Function: Create a picture format for the phone number in the page. Copy Code code as follows: Call Com_creatvalidcode (Request.QueryString ("tel")) Public Sub Com_creatvalidcode (Ptel) '----------Prohibit caching Response.Expires = 0 Response.AddHeader "Pragma", "No-cache" Response.AddHeader "Cache-ctrol", "No-cache" Response.ContentType = "Image/bmp" Randomize Dim I, II, III, RNDCOLOR,STRLEN,SQL,RS Const Codds = 5 ' Probability of the occurrence of the miscellane

Function: Use ASP program to generate picture format of phone number in the page. Copy Code code as follows: Call Com_creatvalidcode (Request.QueryString ("tel")) Public Sub Com_creatvalidcode (Ptel) '----------Prohibit caching Response.Expires = 0 Response.AddHeader "Pragma", "No-cache" Response.AddHeader "Cache-ctrol", "No-cache" Response.ContentType = "Image/bmp" Randomize Dim I, II, III, RNDCOLOR,STRLEN,SQL,RS Const Codds = 5 ' Probability of the occurrence of the miscel

Option Explicit Response.buffer=true Response.Expires =-1 Response.ExpiresAbsolute = Now ()-1 Call Com_creatvalidcode ("GetCode") Sub Com_creatvalidcode (PSN) ' Author:layen ' qq:84815733 ' E-mail:support@ssaw.net ' Disable caching Response.Expires =-9999 Response.AddHeader "Pragma", "No-cache" Response.AddHeader "Cache-ctrol", "No-cache" Response.ContentType = "Image/bmp" Randomize Dim I, II, III Const Codds = 2 ' Odds of occurrence of miscellaneous points Const Camount = 10 ' text quantity

ASP tutorial to generate the code instance of verification code Call Com_creatvalidcode ("Validcode")Sub Com_creatvalidcode (PS tutorial N)' Disable cachingResponse.Expires =-1Response.ExpiresAbsolute = Now ()-1Response.CacheControl = "No-cache"' Response.Expires =-9999' Response.AddHeader ' pragma ', ' no-cache '' Response.AddHeader ' Cache-ctrol ', ' No-cache 'Response.ContentType = "Image/bmp"RandomizeDim i, II, IIIConst CODDS = 0 ' Odds of occurrence of miscellaneous pointsConst CAMOUNT

Function: Use ASP program to generate picture format of phone number in the page. The following is a reference fragment: The following are the referenced contents: Call Com_creatvalidcode (Request.QueryString ("tel"))Public Sub Com_creatvalidcode (Ptel)'----------Prohibit cachingResponse.Expires = 0Response.AddHeader "Pragma", "No-cache"Response.AddHeader "Cache-ctrol", "No-cache"Response.ContentType = "Image/bmp"RandomizeDim I, II, III, RNDCOLOR,STRLEN,SQL,RSConst Codds = 5 ' Prob

, ii, iii Const cAmount = 10' number of values Const cCode = "0123456789" 'value range Dim vColorData (2) VColorData (0) = "" 'black points must be converted to color points, which are not defined at the moment VColorData (1) = ChrB (255) ChrB (255) ChrB (255) 'White spot Dim vCode (4), vCodes 'generates a group of arbitrary numbers For I = 0 To 3 VCode (I) = I

() Randomize Dim I, II, III Const Camount = 10 ' Number of values Const ccode = "0123456789" ' Numerical range Dim Vcolordata (2) Vcolordata (0) = "" ' Black point to be converted to colored dots, temporarily undefined Vcolordata (1) = ChrB (255) ChrB (255) ChrB (255) ' White dots Dim Vcode (4), Vcodes ' produces a set of arbitrary numb

Call com_creatvalidcode ("validcode ") Sub com_creatvalidcode (PSN)'Prohibit cachingResponse. expires =-9999Response. addheader "Pragma", "No-Cache"Response. addheader "cache-ctrol", "No-Cache"Response. contenttype = "image/BMP" Randomize Dim I, II, III Const codds = 4' probability of occurrence of miscellaneousConst camount = 10' text countConst ccodes = "0123456789" 'Color data (character, background)Dim vcolordata (1)Vcolordata (0) = chrb (1)

Option explicitResponse. Buffer = trueResponse. expires =-1Session. Timeout = 60Call com_creatvalidcode ("validatecode ")Sub com_creatvalidcode (PSN)'Prohibit cachingResponse. expires =-9999Response. addheader "Pragma", "No-Cache"Response. addheader "cache-control", "No-Cache"Response. contenttype = "image/BMP"RandomizeDim I, II, IIIConst codds = 0' probability of occurrence of miscellaneous'Color data (character, background)Dim vcolordata (1)Vcolordata (0) =

Asp output bmp [12:04:25 | Author: flashsoft] Font size: large | medium | small Call Com_CreatValidCode ("ValidCode ") Sub Com_CreatValidCode (pSN) 'Author: Layen'Qq: 84815733'E-mail: support@ssaw.net 'Prohibit cachingResponse. Expires =-9999Response. AddHeader "Pragma", "no-cache"Response. AddHeader "cache-ctrol", "no-cache"Response. ContentType = "Image/BMP" Randomize Dim I, ii, iii Const cOdds = 8' probability of occurrence of miscellaneousConst cAmount = 36' text countConst cCode = "0123456